| Filename | (eval 58)[/usr/share/perl5/Sub/Quote.pm:5] |
| Statements | Executed 21 statements in 313µs |
| Eval Invoked At | /usr/share/perl5/Sub/Quote.pm line 5 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 2 | 2 | 25µs | 26.9ms | Search::Elasticsearch::Cxn::Factory::new |
| 1 | 1 | 1 | 12µs | 23µs | Sub::Quote::BEGIN@3.15 |
| 1 | 1 | 1 | 7µs | 7µs | Method::Generate::Constructor::BEGIN@6.16 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | { | ||||
| 2 | 2 | 2µs | my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; | ||
| 3 | 2 | 60µs | 2 | 33µs | # spent 23µs (12+11) within Sub::Quote::BEGIN@3.15 which was called:
# once (12µs+11µs) by Sub::Quote::_clean_eval at line 3 # spent 23µs making 1 call to Sub::Quote::BEGIN@3.15
# spent 11µs making 1 call to warnings::unimport |
| 4 | # spent 26.9ms (25µs+26.8) within Search::Elasticsearch::Cxn::Factory::new which was called 2 times, avg 13.4ms/call:
# once (19µs+26.1ms) by Search::Elasticsearch::new at line 53 of Sub/Defer.pm
# once (6µs+748µs) by Search::Elasticsearch::new at line 40 of /opt/flows/lib/lib/perl5/Search/Elasticsearch.pm | ||||
| 5 | package Method::Generate::Constructor; | ||||
| 6 | # spent 7µs within Method::Generate::Constructor::BEGIN@6.16 which was called:
# once (7µs+0s) by Sub::Quote::_clean_eval at line 11 | ||||
| 7 | 1 | 900ns | $^H = "2018"; | ||
| 8 | 1 | 400ns | ${^WARNING_BITS} = "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\003"; | ||
| 9 | 1 | 6µs | %^H = ( | ||
| 10 | ); | ||||
| 11 | 1 | 220µs | 1 | 7µs | } # spent 7µs making 1 call to Method::Generate::Constructor::BEGIN@6.16 |
| 12 | 1 | 500ns | my $class = shift; | ||
| 13 | 1 | 200ns | $class = ref($class) if ref($class); | ||
| 14 | 1 | 200ns | if ($class ne "Search::Elasticsearch::Cxn::Factory") { | ||
| 15 | if ($Moo::MAKERS{$class}) { | ||||
| 16 | Moo->_constructor_maker_for($class,"Search::Elasticsearch::Cxn::Factory"); | ||||
| 17 | return $class->new(@_); | ||||
| 18 | } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { | ||||
| 19 | return $meta->new_object($class->BUILDARGS(@_)); | ||||
| 20 | } | ||||
| 21 | } | ||||
| 22 | 1 | 2µs | 1 | 26.1ms | my $args = $class->BUILDARGS(@_); # spent 26.1ms making 1 call to Search::Elasticsearch::Cxn::Factory::BUILDARGS |
| 23 | 1 | 900ns | die "BUILDARGS did not return a hashref" unless ref($args) eq 'HASH'; | ||
| 24 | 1 | 2µs | if (my @missing = grep !exists $args->{$_}, qw(_factory cxn_class default_host)) { | ||
| 25 | die "Missing required arguments: ".join(', ', sort @missing); | ||||
| 26 | } | ||||
| 27 | 1 | 1µs | my $new = bless({}, $class);; | ||
| 28 | 1 | 4µs | if (exists $args->{"_factory"}) { | ||
| 29 | $new->{"_factory"} = $args->{"_factory"}; | ||||
| 30 | } | ||||
| 31 | 1 | 800ns | if (exists $args->{"cxn_class"}) { | ||
| 32 | $new->{"cxn_class"} = $args->{"cxn_class"}; | ||||
| 33 | } | ||||
| 34 | 1 | 700ns | if (exists $args->{"default_host"}) { | ||
| 35 | $new->{"default_host"} = $args->{"default_host"}; | ||||
| 36 | } | ||||
| 37 | 1 | 700ns | $new->{"max_content_length"} = ( | ||
| 38 | exists $args->{"max_content_length"} | ||||
| 39 | ? $args->{"max_content_length"} | ||||
| 40 | : "104857600" | ||||
| 41 | ); | ||||
| 42 | 1 | 5µs | return $new; | ||
| 43 | } | ||||
| 44 | 1 | 1µs | $_QUOTED->[3] = \&Search::Elasticsearch::Cxn::Factory::new | ||
| 45 | } | ||||
| 46 | 1 | 5µs | 1; | ||
| 47 | |||||
| 48 | ; |